#!/usr/local/bin/perl
use warnings;
sub main()
{
$a = 0;

$s = "";

$b = 1;
1;

1+2;

1/3;

1*4;

4%2;

4==4;

4!=1;

4<5;

5<=5;

5>=5;

6>6;

1||0;

1&&1;

1;

$a = 0;

$s = "hello";

$b = 1;

!1;

!$b;

print $b;

print 1+2;

print "abc";

hi("susan");

return 0;
}
sub hi()
{
print $s;

return "";
}
main();
